home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / Graphics.DEF < prev    next >
Text File  |  1988-03-15  |  2KB  |  61 lines
  1. (********************************************************************************
  2.  
  3. Name         : Graphics.DEF
  4. Version      : 1.0
  5. Purpose      : Inteface to graphics library
  6. Author       : ms
  7. Modified     : 2.4.86  15:35  ms
  8.  
  9. ********************************************************************************)
  10.  
  11. DEFINITION MODULE Graphics;
  12.  
  13. FROM SYSTEM IMPORT ADDRESS, BYTE;
  14.  
  15. TYPE ViewPort = RECORD
  16.                   next: POINTER TO ViewPort;
  17.                   colorMap,
  18.                   dspIns,
  19.                   sprIns,
  20.                   clrIns,
  21.                   uCopIns: ADDRESS;
  22.                   dWidth, dHeight: INTEGER;
  23.                   dxOffset, dyOffset: INTEGER;
  24.                   modes: CARDINAL;
  25.                   res: CARDINAL;
  26.                   rasInfo: ADDRESS
  27.                 END;
  28.      View     = RECORD
  29.                   viewPort: ADDRESS;
  30.                   lofCprList,
  31.                   shfCprList: ADDRESS;
  32.                   dyOffset, dxOffset: INTEGER;
  33.                   modes: CARDINAL;
  34.                 END;
  35.      RasInfo  = RECORD
  36.                   next: POINTER TO RasInfo;
  37.                   bitMap: ADDRESS;
  38.                   rxOffset, ryOffset: INTEGER
  39.                 END;
  40.      BitMap   = RECORD
  41.                   bytesPerRow,
  42.                   rows: CARDINAL;
  43.                   flags, depth: BYTE;
  44.                   pad: CARDINAL;
  45.                   planes: ARRAY [0..7] OF ADDRESS
  46.                 END;
  47.  
  48. PROCEDURE OffDisplay;
  49. PROCEDURE OnDisplay;
  50.  
  51. PROCEDURE InitView(VAR v: View);
  52. PROCEDURE InitBitMap(VAR bm: BitMap; d, w, h: CARDINAL);
  53. PROCEDURE InitVPort(VAR vp: ViewPort);
  54.  
  55. PROCEDURE MakeVPort(VAR v: View; VAR vp: ViewPort);
  56. PROCEDURE MrgCop(VAR v: View);
  57.  
  58. PROCEDURE LoadView(VAR v: View);
  59.  
  60. END Graphics.
  61.